home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / enterascii.quill < prev    next >
Text File  |  1995-08-29  |  430b  |  30 lines
  1.  
  2. /**
  3.  **  $VER: EnterASCII.quill 1.0 (30.9.94)
  4.  **  By Timothy J. Aston
  5.  **
  6.  **  Prompts you for an ASCII value to insert at the current cursor
  7.  **  position
  8.  **
  9.  **/
  10.  
  11.  
  12. /* Some setup first.
  13.  */
  14. options results
  15. options failat 200
  16.  
  17. TAB = d2c(9)
  18.  
  19. main:
  20.     'REQUESTNUMBER' '"Enter an ASCII value to insert (precede hex by 0x)"'
  21.  
  22.     if rc = 0 then do
  23.         'TEXT' d2c(result)
  24.     end
  25.     else do
  26.         'SETSTATUSBAR' '"Operation cancelled"'
  27.     end
  28.  
  29.     exit
  30.